home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Online / Iris / DelFolder.irx < prev    next >
Text File  |  1998-07-30  |  670b  |  30 lines
  1. /* REXX-script to delete the contents of a folder
  2.    $VER: IrisRMail.irx 1.4 (30.7.98) supplied with Iris V1.6
  3. */
  4.  
  5. options results
  6. options failat 11
  7.  
  8. messagefile
  9. if rc = 10 then do
  10.    selectmessage 0
  11.    if rc = 10 then do
  12.       askchoice '"Delete all messages"' '"There are no messages to*Ndelete in this folder!"' '*_OK'
  13.       exit
  14.    end
  15. end
  16.  
  17. askchoice '"Delete all messages"' '"Are you sure you want to delete all messages in this folder?"' '_Yes|_No'
  18.  
  19. if rc = 0 then do
  20.    selectmessage 0
  21.    messagefile
  22.    a=substr(result,1,length(result)-11)||"#?"
  23.    address command "DELETE" a
  24.    getfolder
  25.    fol=result
  26.    setfolder '"'||fol||'"'
  27.    setfolder '"'||fol||'"'
  28. end
  29.  
  30.